home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Frameworks / TransSkel 3.24 / Source / Control Stuff / SkelToggleCtlValue.c < prev   
Text File  |  1996-01-17  |  249b  |  17 lines
  1. /*
  2.  * Toggle value of control, return resulting value.
  3.  */
  4.  
  5. # include    "TransSkel.h"
  6.  
  7.  
  8. pascal short
  9. SkelToggleCtlValue (ControlHandle ctrl)
  10. {
  11. short    value;
  12.  
  13.     value = (GetControlValue (ctrl) ? 0 : 1);
  14.     SetControlValue (ctrl, value);
  15.     return (value);
  16. }
  17.